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Nel COMPUTER esistono due aree di memoria, chiomate 
MEMORIA DELLO SCHERMO e MEMORIA DEL COLORE. 

LA MEMORIA DELLO SCHERMO contiene i codici dello 
schermo (o di visualizzazione) dei caratteri che sono 
visualizzati sul video. 

Ad ogni posizione del video, rigo per rigo, è associato uno 
locazione di memoria che conterrà il codice del carattere 
presente nello corrispondente posizione. 

Quindi lo primo locazione conterrà il codice del carattere 
presente nell'angolo in alto a sinistro del video, mentre 
l'ultima quello nell'angolo in basso a destra. 
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Naturalmente se in una posizione non è presente nessun 
carattere, nella corrispondente locazione sarà presente il 
codice dello spazio, cioè 32. 

LA MEMORIA DEL COLORE contiene i codici dei colori dei 
caratteri in ogni posizione dello schermo. 

Per visualizzare un carattere con il POKE ne memorizzerai il 
codice nello locazione dello memoria video,corrispondente 
allo posizione in cui dovrà apparire. 






Se vuoi indirizzare lé posizioni dello schermo tramite le 
coordinate X e Y puoi calcolare la locazione corrispondente 
con lo formula: 

(per il CBM 64) 1024+X*40+Y. 

Dove X è variabile tra 0 e 24 e Y tra 0 e 39, visto che sul 
video ci sono rispettivamente 25 righe e 40 colonne. 

(per il VIC 20) 7680+X*22+Y 

Dove X è variabile tra 0 e 22 e Y TRA 0 E 21, doto che ci sono 
sul video rispettivamente 23 righe e 22 colonne. 

Sul video puoi creare il movimento di un carattere 
semplicemente memorizzandone il codice dello nuovo 
posizione del video e cancellando quello nello posizione 
precedente con il valore 32 (codice dello spazio). 




Quindi, con l'istruzione PEEK potrai leggere il contenuto di 
uno locazione del video o del colore (lez. 25), così da 
sapere quale carattere o quale colore è presente in uno certa 
posizione dello schermo. 

Questo è molto utile per stabilire se due caratteri si scontrano. 
Quindi, durante il movimento di un carattere, primo di 
spostarlo allo posizione successivo, con il PEEK è possibile 
leggerne il codice. 

Se il codice letto è diverso do 32 significo che il carattere è 
in collisione con un altro. 





Listato dell'esercizio: ESEMPIO PRATICO 
(CDM 64) 

10 poKe53280,G:po«e53281,6 
15 pr intchrS< 142 )chr»< 147 ) 

20 v = 1024 se=55298 
30 x =5 s-f or y = 10to30 

40 gosub500:pokev+p,31 :poKec+p,7 
50 nexty 

80 y =30 :-f or x =5t o20 

70 gosub500:poKey+p,81 :poKec+p,7 
80 nextx 

90 x=20:fory=30to10step-1 

100 gosub500:poKey+p,8l:poKec+p ,7 

110 nexty 

120 y = 10:forx =20toSstep - 1 

130 gosub500:poKey+p,8i:poKec+p,7 

140 nextx 

150 x =8:-f or y =25to 15s tep - 1 

160 gosub500:poKev+p,8l:po«ec+p,l 

170 nex-ty 

180 y = 15:-forx=8to 17 

190 gosub500:poKev+p,81:poKec +p,1 

200 nextx 

210 x=17:fory=1Sto25 

220 gosub500:poKeu +p,81:poKec+p,1 

230 nexty 

240 y=25:forx=17to8step-l 

250 gosub500: poKev +p,81JpoKec +p,1 

260 nextx:end 

500 p=x*40+y: return 

Listato dell'esercizio: ESEMPIO PRATICO 
(VIC 20) 

10 poKe36878,110 

15 printchr142)chr147> 

20 y=7880:€=38400 
30 x =4 :-f or y =2to20 

40 gosub500:poKev+p,3l:poKec+p,7 
50 nexty 

80 y =20 :-f or x =4to 18 

70 gosub50OJpoKev +p,81:poKec+p,7 

80 nextx 

90 x = 13 : -f or y =20to2step - 1 

100 gosub500:pokev+p,8l:po«ec+p,7 

110 nexty 

120 y =2 :-f or x = 13t o4s t ep - 1 
130 gosub500:pokev +p,81spokee+p ,7 
140 nextx 

150 x =6 : -f or y = ISt oGs t ep - 1 

180 gosub500:pokey+p,81:pokec+p,1 

170 nexty 

180 y =8 :-f or x =6t o 16 

190 goiute500:poKeu+p,31: poKec +p,1 
200 nextx 

210 x = 16:-fory=6to 18 

220 gosub500:pokev +p,81 :pokee +p,i 

230 nexty 



240 y = 16 :forx = 16+o6s + ep- 1 

250 3 o s u b500: p oke v +p,81 s p o K e c^ p ,! 

260 nextx : er d 

500 p=x*22+y: return 


Listato dell'esercizio: COMPLETA IL LISTATO 
(CDM 64) 

10 poke53290,8 : po K e53281,3:t*3=54272 
80 P - irvt t * 3 < 142 >chr*< 147 ) 

30 forC*3=40to889 

40 i-f iivt < C» ] (0>*50)<46theìi60 

50 poke 1024+x,C * 3:pcke55296+x,6 

60 nextx : C* 3 = 1064 :a=ti 

70 C * 3a®:pokek ,83 :poke c +k,1 :pk =k 

30 if a*= ”x "ther; k = C*3 

30 ifa*="z"ther k =k - 1 

100 ifC*3="'"then K =k-40 

110 if a®= "/"then k=k+40 

120 i-fpk < >kthenpokec +pk ,3 

130 [ * 3 <k <1064) + <k>2023>thenk=1064 

140 ifpeek(k) =S6then C*3=s+i:pokec+k,3 

150 printchr*(19>tab<15>“punti: " ; s 

160 ift i-C*3<1800then70 


Listato dell'esercizio: COMPLETA IL LISTATO 
(VIC 20) 

10 Poke36879,62:C*3=30720 
20 pr irvt C * 3 < 142>chr*< 147) 

30 for C*3=22to505 

40 i-f Iirt ( C* J<0>*50X46then60 

50 poke7680+x,C* 3 :poke38400+x,6 

60 nextx : C* 3=7702 :a=ti 

70 C*3a*:pokek,88:pokec+k,l:pk=k 

80 ifa*=*x*then k = C*3 

90 if a*= “z “-then k =k - 1 

100 i-f 1*3 = "-then k=k-22 

110 if a$= “/"-then k=k+22 

120 ifpK < >kther,poKec+pK ,3 

130 C* 3 <k <7702 > + <k>8135>thenk =7702 

140 ifpeek(k)=86then C*3=s+l:pokec+k,3 

150 printchr*<19>tab<6>"punti: ",‘s 

160 if-t i-t*3< 1800then70 


PROGRAMMIAMO INSIEME (CDM 64) 


10 Poke 53280,0:poke 53281,0 
20 dim d <100 > 

30 printchr*<1423 

40 p- ini "umero stai le” 

50 input "S|< 1 -100)-;ns 

B0 if <ns < 1 > + <ns >100) -then 40 

70 pr int'3" 

80 -for k = l -to ns 
30 PS=intOnd<0>*1000) 

100 if peek<1024+ps><>32 then 90 
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1 !0 d CK )=ps 

120 cs = intCrndC0)*15+l'' 

130 ts = irrt (rnd C0' *3+ 1 > 

140 i-f ts = l then cr=81 
130 i-f ts =2 then cr =42 
160 i-f ts=3 then cr=46 
170 poKe 1024+ps,cr 
180 poKe 55296+ps ,cs 
190 next K 
200 -fon K-1 to ns 

210 poKe 1024+d CK ) ,32 : poKe 55236+d<K),0 
220 -for t = l to 80snext t 
230 next K 


PROGRAMMIAMO INSIEME (VIC 20) 

10 poKe 36879,8 
20 dim d <50) 

30 printchr*C142) 

40 pr int "SffiEBHSB'iumer o stelle" 

50 input "a< 1-50)";ns 

60 i-f Cns< 1 ) + <ns >50) then 40 

70 print *a n 

80 for K=1 to ns 

90 ps = int Cr nd C0)*506 ) 

100 if peeK C7680+PSX >32 then 90 
110 d CK)=ps 

120 cs = intCrndC0)*7+1 ) 

130 ts = intCrnd<0)*3+ 1 > 

140 if ts=l then cr=Sl 
150 if ts=2 then cr=42 
160 if ts =3 then cr=46 
170 poKe 7680+ps ,cr 
180 poKe 33400+ps ,cs 
190 next K 
200 for K=1 to ns 

210 poKe 7680 + dCK),32:poKe 3S400+dCK ) ,0 
220 for t=l to S0snext t 
230 next K 


Soluzione dell'esercizio: 
COMPLETA IL LISTATO (lez. 25) 

10 forx = 1 to6:readu*Cx)snextx 
20 dati“for x=l to 10” 

30 data"goto 110" 

40 data"input n" 

50 data *s =s + 1" 

60 data"next j" 

70 data *if a<>2 then 100" 

80 s=t i :forx = lto6 
90 r = intCrndC0)*6+1) 

100 if vCr)=l then 90" 

110 v Cr) = 1 

120 printiprinttabC2)u*Cr)sprint 

130 inputs*iifs*=u*Cr)then150 

140 9 oto120 

130 nextxsf=t i spr int 

160 print"secondiintCCf-s)/60) 
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